home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / WINWORDS / AMIMACRO.ZIP / TYPESET.SMM < prev    next >
INI File  |  1992-07-20  |  17KB  |  1,145 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     CITIZEN Dot Matrix
  13. [lang]
  14.     1
  15. [desc]
  16.     
  17.     
  18.     
  19.     
  20.     
  21.     711691799
  22.     4
  23.     709842889
  24.     242
  25.     5
  26.     0
  27.     0
  28.     0
  29.     0
  30.     
  31.     
  32.     
  33.     
  34.     
  35.     
  36.     0
  37. [fopts]
  38.     0
  39.     1
  40.     0
  41.     0
  42. [lnopts]
  43.     2
  44.     Body Text
  45.     1
  46. [docopts]
  47.     5
  48.     2
  49. [l1]
  50.     0
  51. [pg]
  52.     5
  53.     60 0 17 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  54.     120 0 5 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  55.     179 0 10 0 0 1 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  56.     237 0 47 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  57.     246 0 10 1025 80 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
  58. [edoc]
  59. @Function@<:#216,10800>FUNCTION Typeset()
  60.  
  61. <:#216,10800><:>onerror endit
  62.  
  63. <:#216,10800>oncancel endit
  64.  
  65. dim bfont(100)
  66.  
  67. <:#216,10800>l=0
  68.  
  69. b=79
  70.  
  71. <:#216,10800>bfont(1)="Arial MT"
  72.  
  73. <:#216,10800>bfont(2)="AvantGarde"
  74.  
  75. <:#216,10800>bfont(3)="Bookman"
  76.  
  77. <:#216,10800>bfont(4)="BrushScript"
  78.  
  79. <:#216,10800>bfont(5)="CaslonOpenFace"
  80.  
  81. <:#216,10800>bfont(6)="Courier"
  82.  
  83. <:#216,10800>bfont(7)="DomCasual"
  84.  
  85. <:#216,10800>bfont(8)="Frank Goth Cd"
  86.  
  87. <:#216,10800>bfont(9)="Helvetica"
  88.  
  89. <:#216,10800>bfont(10)="Helvetica-Narrow"
  90.  
  91. <:#216,10800>bfont(11)="LetterGothic"
  92.  
  93. <:#216,10800>bfont(12)="NewCenturySchlbk"
  94.  
  95. <:#216,10800>bfont(13)="Palatino"
  96.  
  97. <:#216,10800>bfont(14)="Perpetua"
  98.  
  99. <:#216,10800>bfont(15)="Shelly Allegro Script"
  100.  
  101. <:#216,10800>bfont(16)="Symbol"
  102.  
  103. <:#216,10800>bfont(17)="Times"
  104.  
  105. <:#216,10800>bfont(18)="TimesNewRomanPS"
  106.  
  107. <:#216,10800>bfont(19)="Wingdings"
  108.  
  109. <:#216,10800>bfont(20)="Algiers"
  110.  
  111. <:#216,10800>bfont(21)="Arabia"
  112.  
  113. <:#216,10800>bfont(22)="Avalon"
  114.  
  115. <:#216,10800>bfont(23)="Bahamas"
  116.  
  117. <:#216,10800>bfont(24)="BahamasHeavy"
  118.  
  119. <:#216,10800>bfont(25)="BahamasLight"
  120.  
  121. <:#216,10800>bfont(26)="BallroomTango"
  122.  
  123. <:#216,10800>bfont(27)="BravoEngraved"
  124.  
  125. <:#216,10800>bfont(28)="Brochure"
  126.  
  127. <:#216,10800>bfont(29)="Brooklyn"
  128.  
  129. <:#216,10800>bfont(30)="Busker"
  130.  
  131. <:#216,10800>bfont(31)="Campaign"
  132.  
  133. <:#216,10800>bfont(32)="Casablanca"
  134.  
  135. <:#216,10800>bfont(33)="CasablancaAntique"
  136.  
  137. <:#216,10800>bfont(34)="CommonBullets"
  138.  
  139. <:#216,10800>bfont(35)="Cottage"
  140.  
  141. <:#216,10800>bfont(36)="Crescent"
  142.  
  143. <:#216,10800>bfont(37)="Dauphin"
  144.  
  145. <:#216,10800>bfont(38)="DawnCastle"
  146.  
  147. <:#216,10800>bfont(39)="Dixieland"
  148.  
  149. <:#216,10800>bfont(40)="Euromode"
  150.  
  151. <:#216,10800>bfont(41)="Expo"
  152.  
  153. <:#216,10800>bfont(42)="Frankenstein"
  154.  
  155. <:#216,10800>bfont(43)="Freeport"
  156.  
  157. <:#216,10800>bfont(44)="Galleria"
  158.  
  159. <:#216,10800>bfont(45)="Gatineau"
  160.  
  161. <:#216,10800>bfont(46)="GreekMathSymbols"
  162.  
  163. <:#216,10800>bfont(47)="Hollow"
  164.  
  165. <:#216,10800>bfont(48)="HomewardBound"
  166.  
  167. <:#216,10800>bfont(49)="Indiana"
  168.  
  169. <:#216,10800>bfont(50)="IndianaSolid"
  170.  
  171. <:#216,10800>bfont(51)="Kastler"
  172.  
  173. <:#216,10800>bfont(52)="Kids"
  174.  
  175. <:#216,10800>bfont(53)="Lincoln"
  176.  
  177. <:#216,10800>bfont(54)="Linus"
  178.  
  179. <:#216,10800>bfont(55)="Lithograph"
  180.  
  181. <:#216,10800>bfont(56)="LithographLight"
  182.  
  183. <:#216,10800>bfont(57)="Mystical"
  184.  
  185. <:#216,10800>bfont(58)="Nebraska"
  186.  
  187. <:#216,10800>bfont(59)="NewBrunswick"
  188.  
  189. <:#216,10800>bfont(60)="NewOrder"
  190.  
  191. <:#216,10800>bfont(61)="NewOrderEngraved"
  192.  
  193. <:#216,10800>bfont(62)="Nuance"
  194.  
  195. <:#216,10800>bfont(63)="Ottawa"
  196.  
  197. <:#216,10800>bfont(64)="PalmSprings"
  198.  
  199. <:#216,10800>bfont(65)="Paradise"
  200.  
  201. <:#216,10800>bfont(66)="Penguin"
  202.  
  203. <:#216,10800>bfont(67)="PenguinLight"
  204.  
  205. <:#216,10800>bfont(68)="President"
  206.  
  207. <:#216,10800>bfont(69)="Southern"
  208.  
  209. <:#216,10800>bfont(70)="Stamp"
  210.  
  211. <:#216,10800>bfont(71)="SwitzerlandLight"
  212.  
  213. <:#216,10800>bfont(72)="SwitzerlandNarrow"
  214.  
  215. <:#216,10800>bfont(73)="Timpani"
  216.  
  217. <:#216,10800>bfont(74)="TimpaniHeavy"
  218.  
  219. <:#216,10800>bfont(75)="Unicorn"
  220.  
  221. <:#216,10800>bfont(76)="Viking"
  222.  
  223. <:#216,10800>bfont(77)="Vivienne"
  224.  
  225. <:#216,10800>bfont(78)="Wingdings"
  226.  
  227. <:#216,10800>bfont(79)="ZurichCalligraphic"
  228.  
  229. @Function@<:#216,10800>Box1:
  230.  
  231. <:#216,10800><:>Darkmode(1)
  232.  
  233. <:#216,10800>Hourglass(1)
  234.  
  235. <:#216,10800>For I = 1 to b
  236.  
  237. <:#216,10800>    FillList(bfont(I))
  238.  
  239. <:#216,10800>Next
  240.  
  241. <:#216,10800>For I = 3 to 50
  242.  
  243. <:#216,10800>    x=i*2
  244.  
  245. <:#216,10800>    Filledit(9500,x)
  246.  
  247. <:#216,10800>next
  248.  
  249. <:#216,10800>box1=DialogBox(".","box1")
  250.  
  251. <:#216,10800>If box1=0
  252.  
  253. <:#216,10800>    Goto endit
  254.  
  255. <:#216,10800>Endif
  256.  
  257. <:#216,10800>Newfont=GetDialogField$(9000)
  258.  
  259. <:#216,10800>Newsize=GetDialogField$(9500)
  260.  
  261. <:#216,10800>slant=GetDialogField$(22)
  262.  
  263. <:#216,10800>black=GetDialogField$(23)
  264.  
  265. <:#216,10800>blackslant=GetDialogField$(24)
  266.  
  267. <:#216,10800>both=GetDialogField$(28)
  268.  
  269. <:#216,10800>all=GetDialogField$(25)
  270.  
  271. <:#216,10800>Entire=GetDialogField$(26)
  272.  
  273. <:#216,10800>ASCII=GetDialogField$(27)
  274.  
  275. <:#216,10800>If all=1
  276.  
  277. <:#216,10800>    att=5
  278.  
  279. elseif both=1
  280.  
  281.     att=5
  282.  
  283. <:#216,10800>elseif slant=1
  284.  
  285. <:#216,10800>    att=2
  286.  
  287. <:#216,10800>elseif black=1
  288.  
  289. <:#216,10800>    att=3
  290.  
  291. <:#216,10800>elseif blackslant=1
  292.  
  293. <:#216,10800>    att=4
  294.  
  295. <:#216,10800>else att=1
  296.  
  297. <:#216,10800>Endif
  298.  
  299. <:#216,10800>FontFaceChange(newfont)
  300.  
  301. <:#216,10800>attrib="normal"
  302.  
  303. <:#216,10800>Switch att
  304.  
  305. <:#216,10800>    case 2
  306.  
  307. <:#216,10800>        Italic()
  308.  
  309. <:#216,10800>        attrib="Italic"
  310.  
  311. <:#216,10800>    case 3
  312.  
  313. <:#216,10800>        Bold()
  314.  
  315. <:#216,10800>        Attrib="Bold"
  316.  
  317. <:#216,10800>    case 4
  318.  
  319. <:#216,10800>        bold()
  320.  
  321. <:#216,10800>        Italic()
  322.  
  323. <:#216,10800>        attrib="Bold Italic"
  324.  
  325. <:#216,10800>    case 5 
  326.  
  327. <:#216,10800>        goto allfour
  328.  
  329. <:#216,10800>EndSwitch
  330.  
  331. <:#216,10800>FontPointSizeChange(newsize)
  332.  
  333. <:#216,10800>StatusBarMsg("Typing {newfont} {attrib} in {newsize} points")
  334.  
  335. <:#216,10800>If entire
  336.  
  337. <:#216,10800>    For i = 33 to 255
  338.  
  339. <:#216,10800>        Char = CHR$(I)
  340.  
  341. <:#216,10800>        If ascii
  342.  
  343. <:#216,10800>            Type("{char}")
  344.  
  345. <:#216,10800>            FontFaceChange("Times")
  346.  
  347. <:#216,10800>            Type(" = {i}<[>Enter]")
  348.  
  349. <:#216,10800>            FontFaceChange(newfont)
  350.  
  351. <:#216,10800>        Else TYPE("{Char}")
  352.  
  353. <:#216,10800>        Endif
  354.  
  355. <:#216,10800>    Next
  356.  
  357. <:#432,10800>Else TYPE("ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : '  ? ! @#$%^&* - _ = + / << <;> { } <[> ]</V> 
  358. </W> </T> </S>")
  359.  
  360. <:#216,10800>Endif
  361.  
  362. <:#216,10800>Type("{Newfont} {Newsize}<[>Enter]<[>Enter]")
  363.  
  364. <:#216,10800>Switch att
  365.  
  366. <:#216,10800>    case 2
  367.  
  368. <:#216,10800>        Italic()
  369.  
  370. <:#216,10800>    case 3
  371.  
  372. <:#216,10800>        Bold()
  373.  
  374. <:#216,10800>    case 4
  375.  
  376. <:#216,10800>        bold()
  377.  
  378. <:#216,10800>        Italic()
  379.  
  380. <:#216,10800>Endswitch
  381.  
  382. <:#216,10800>goto another
  383.  
  384. @Function@<:#216,10800>Allfour:
  385.  
  386. <:#216,10800>Switch l
  387.  
  388. <:#216,10800>    case 0
  389.  
  390. <:#216,10800>        attrib="Normal"
  391.  
  392. <:#216,10800>    case 1
  393.  
  394. <:#216,10800>        attrib="Italic"
  395.  
  396. <:#216,10800>    case 2
  397.  
  398. <:#216,10800>        attrib="Bold"
  399.  
  400. <:#216,10800>    case 3
  401.  
  402. <:#216,10800>        attrib="Bold Italic"
  403.  
  404. <:#216,10800>Endswitch
  405.  
  406. <:#216,10800>FontPointSizeChange(12)
  407.  
  408. <:#216,10800>StatusBarMsg("Typing {newfont} {attrib} in 12 points")
  409.  
  410. <:#216,10800>If entire
  411.  
  412. <:#216,10800>    For i = 33 to 255
  413.  
  414. <:#216,10800>        Char = CHR$(I)
  415.  
  416. <:#216,10800>        If ascii
  417.  
  418. <:#216,10800>            Type("{char} = {i}<[>Enter]")
  419.  
  420. <:#216,10800>        Else TYPE("{Char}")
  421.  
  422. <:#216,10800>        Endif
  423.  
  424. <:#216,10800>    Next
  425.  
  426. <:#432,10800>Else TYPE("ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : '  ? ! @#$%^&* - _ = + / << <;> { } <[> ]</V> 
  427. </W> </T> </S>")
  428.  
  429. <:#216,10800>Endif
  430.  
  431. <:#216,10800>Type("{Newfont} 12 {attrib}<[>Enter]<[>Enter]")
  432.  
  433. <:#216,10800><:><:>FontPointSizeChange(18)
  434.  
  435. <:#216,10800>StatusBarMsg("Typing {newfont} {attrib} in 18 points")
  436.  
  437. <:#216,10800>If entire
  438.  
  439. <:#216,10800>    For i = 33 to 255
  440.  
  441. <:#216,10800>        Char = CHR$(I)
  442.  
  443. <:#216,10800>        If ascii
  444.  
  445. <:#216,10800>            Type("{char} = {i}<[>Enter]")
  446.  
  447. <:#216,10800>        Else TYPE("{Char}")
  448.  
  449. <:#216,10800>        Endif
  450.  
  451. <:#216,10800>    Next
  452.  
  453. <:#432,10800>Else TYPE("ABCDEFGHIJKLMNOPQRATUVWXYZ abcdefghijklmnopqrstuvwxyz 1234567890 . , ; : '  ? ! @#$%^&* - _ = + / << <;> { } <[> ]</V> 
  454. </W> </T> </S>")
  455.  
  456. <:#216,10800>Endif
  457.  
  458. <:#216,10800>Type("{Newfont} 18 {attrib}<[>Enter]<[>Enter]")
  459.  
  460. If both=1
  461.  
  462.     goto another
  463.  
  464. endif
  465.  
  466. <:#216,10800>l=l+1
  467.  
  468. <:#216,10800>If l<;>0
  469.  
  470. <:#216,10800>    italic